Apple Reference & Presen…rary 6 (Reseller Edition)/Apple Ref. & Pres. Lib.v6.0.toast/pc/3-Presentations/Apple Demos/Training/HyperCard 2.0 Training/•HC 2.0-4/card_8478.txt

Text File | 1990-04-06 | 7KB | 296 lines

-- card: 8478 from stack: in.0-4
-- bmap block id: 17515
-- flags: 0000
-- background id: 2767
-- name: Ex 1.3
----- HyperTalk script -----
-- The "resetBtns" and "hideFeedback" handlers are in the stack script.
on resetCd
  dehilitebtns
  resetBtns
  hideFeedback
end resetCd

-- This handler checks whether the btn is within the box (a btn).
-- If so, it centers it there.  If not, it returns the btn to its
-- original position (found in cd fld "theLocs").
-- The "moveBtnBack" handler is in the stack script.
on dropMe
  if loc of the target is within rect of btn "thePlace" then
    set loc of the target to loc of btn "thePlace"
  else
    moveBtnBack (the number of the target)
  end if
end dropMe



-- part 24 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=163 top=235 right=271 bottom=199
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: thePlace


-- part 20 (button)
-- low flags: 00
-- high flags: 0002
-- rect: left=84 top=182 right=214 bottom=116
-- title width / last selected line: 0
-- icon id / first selected line: 18041 / 18041
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: answer3
----- HyperTalk script -----
-- This handler moves the btns back to their original locs,
-- making it easier for the user to drag a new btn into the box.
on mouseDown
  if loc of me is not loc of btn "thePlace" then
    resetCd
  end if
end mouseDown

-- The "dragTarg" handler is in the stack script.
on mouseStillDown
  DragTarg
end mouseStillDown

-- The "dropMe" handler is in the card script.
on mouseUp
  dropMe
end mouseUp



-- part 21 (button)
-- low flags: 00
-- high flags: 0002
-- rect: left=122 top=144 right=176 bottom=154
-- title width / last selected line: 0
-- icon id / first selected line: 21700 / 21700
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: answer2
----- HyperTalk script -----
-- This handler moves the btns back to their original locs,
-- making it easier for the user to drag a new btn into the box.
on mouseDown
  if loc of me is not loc of btn "thePlace" then
    resetCd
  end if
end mouseDown

-- The "dragTarg" handler is in the stack script.
on mouseStillDown
  DragTarg
end mouseStillDown

-- The "dropMe" handler is in the card script.
on mouseUp
  dropMe
end mouseUp



-- part 22 (button)
-- low flags: 00
-- high flags: 0002
-- rect: left=84 top=144 right=176 bottom=116
-- title width / last selected line: 0
-- icon id / first selected line: 21060 / 21060
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: answer1
----- HyperTalk script -----
-- This handler moves the btns back to their original locs,
-- making it easier for the user to drag a new btn into the box.
on mouseDown
  if loc of me is not loc of btn "thePlace" then
    resetCd
  end if
end mouseDown

-- The "dragTarg" handler is in the stack script.
on mouseStillDown
  DragTarg
end mouseStillDown

-- The "dropMe" handler is in the card script.
on mouseUp
  dropMe
end mouseUp



-- part 23 (button)
-- low flags: 00
-- high flags: 0002
-- rect: left=122 top=182 right=214 bottom=154
-- title width / last selected line: 0
-- icon id / first selected line: 32670 / 32670
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: answer4
----- HyperTalk script -----
-- This handler moves the btns back to their original locs,
-- making it easier for the user to drag a new btn into the box.
on mouseDown
  if loc of me is not loc of btn "thePlace" then
    resetCd
  end if
end mouseDown

-- The "dragTarg" handler is in the stack script.
on mouseStillDown
  DragTarg
end mouseStillDown

-- The "dropMe" handler is in the card script.
on mouseUp
  dropMe
end mouseUp



-- part 27 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=400 top=316 right=336 bottom=459
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Done
----- HyperTalk script -----
-- This handler checks the user's answer.
-- It checks which btn is inside the box, then uses "ans" to
-- return feedback.  (The "ans" handler is in the stack script.)
on MouseUp
  repeat with i=1 to 4
    if loc of btn ("answer" & i) is loc of btn "thePlace" then
      exit repeat
    end if
    add 1 to i
  end repeat
  ans i
end mouseUp



-- part 29 (field)
-- low flags: 81
-- high flags: 0007
-- rect: left=0 top=0 right=62 bottom=148
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: theLocs
----- HyperTalk script -----
-- This is just a little utility that updates this fld.
-- This handler puts their locs of the btns into this fld, so they can
-- be used later by "moveBtnBack" and "resetBtns".
on mouseUp
  if the optionKey is down then
    put empty into me
    repeat with i = 1 to number of cd btns
      put the loc of cd btn i into line i of me
    end repeat
  end if
end mouseUp



-- part 33 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=347 top=275 right=293 bottom=464
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Correct Answer
----- HyperTalk script -----
-- This handler shows the correct answer.
on mouseUp
  hideFeedback
  resetBtns
  repeat 3
    set the hilite of btn "answer3" to false
    wait 15
    set the hilite of btn "answer3" to true
    wait 15
  end repeat
  ans 6
end mouseUp



-- part contents for background part 9
----- text -----
3 of 6

-- part contents for background part 6
----- text -----
Here is a card from a HyperCard accounting application. It needs a button that allows users to go to the previous piece of information. Choose the button below that is appropriate for that purpose, and drag it into the marked place on the card.











-- part contents for background part 21
----- text -----
No, this icon is commonly used for Help.
No, this icon is used to go to the “Home Card”.
Correct. This icon is used to go to the previous card.
No, this icon is used to show all the cards in a stack.
Please drag an icon into the box first.
This is the correct answer. This icon will take you to the previous piece of information.

-- part contents for background part 19
----- text -----
4

-- part contents for card part 29
----- text -----
181,253
100,198
138,160
100,160
138,198
429,326
405,284